Simple module to compute the SipHash algorithm.
cabal install siphash
siphash-2-4:
import Crypto.MAC.SipHash (hash)
import qualified Data.ByteString.Char8 as B
k0 = 0xaaaaaaaaaaaaaaaa
k1 = 0xbbbbbbbbbbbbbbbb
tag = hash (SipKey k0 k1) (B.pack "my text to hash")
siphash-c-d:
import Crypto.MAC.SipHash (hash)
import qualified Data.ByteString.Char8 as B
k0 = 0xaaaaaaaaaaaaaaaa
k1 = 0xbbbbbbbbbbbbbbbb
tag = hashWith nbCompressionRounds nbDigestRounds (SipKey k0 k1) (B.pack "my text to hash")